unit uFrmDataGrid_WithChildGrid;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, uFrmDataGrid_WithChild, Menus, ActnList, DB, DBClient, RzButton,
    ExtCtrls, Grids, DBGridEh, StdCtrls, RzStatus, RzSplit, RzPanel,
    ImgList, XPMenu;

type
    TFrmDataGrid_WithChildGrid = class( TFrmDataGrid_WithChild )
        GroupBox1: TGroupBox;
        grdChild: TDBGridEh;
    protected
        procedure init; override;
    end;

implementation

{$R *.dfm}

{ TFrmDataGrid_WithChildGrid }

procedure TFrmDataGrid_WithChildGrid.init;
begin
    inherited;
    grdChild.DataSource := FChilds [FActiveIndex].ChildDataSource;
    grdChild.PopupMenu := popmChild;
end;

end.
